Sub prueba_Open()
    Dim fichero As String
    Dim texto As String
    texto = "Es una prueba2"
    fichero = "C:\Temp\Notas.txt"
    Open fichero For Output As #1
    ' Graba datos en fichero.
    Print #1, texto
    ' Cierra fichero.
    'Close #1
End Sub
